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DECUS Program Library Write-up 


DECUS No. 5-277 


Sample output and input from ASR-33 is shown below with explanations in parenthesis. 

(Proaram is started at 0^0-.) 

O 

INSTRUCTIONS 

Speeds S/B < or= to 30. 

Return key will ask questions again. 

Rubout will return to system. 

Note: Control keys operate only during display. 

(Control keys are return and rubout.) 

(S/B=should be less than or equal to 3j0g.) 

Rocket speed=l 2 
UFOspeed=14 

(Both speeds are octal numbers followed by a return.) 

Hit a key to fire rocket. 

(Any key except the 2 control keys will fire the rocket.) 

Rocket speed=(At this point I finally hit the saucer and it is asking me for another rocket speed) 
UFOspeed=]. 

Hit a key to fire rocket. 

Rocket speed=(! didn't hit it this time but hit the return key to ask the questions again.) 

UFO speed=3. 

Hit a key to fire rocket. 

Rocketspeed=l3. 

UFO speed=3j2l. 

Hit a key to fire rocket. 

(Rubout hit here and the program went to the system.) 

Escape. 

Another version of the program is available if you have the following equipment: Light 
Pen, at least 4 channel multiplexor, analog to digital convertor, hardware character 
generator. 







/ 4 /! 5 / 7 ® 

TITLE ICBM-1970 TTY VERSlOW 

/FLYIMS SAUCER-ROCKET PROGRAM 
/FOR THE POP-5 COMPUTER. 

*14 


00 1 4 

©000 

•>tE3CNTe0 

/ALL COMSTAMTS AMD VARIABLES USED IN ROCKET# PS. 
/LOCATIONS 10-17 USED AS AUTO-INDEXING REGISTERS 

«20 

00*0 

@000 

SPEEDR#@ 

002 S 


SPESDF#® 

0022 

9000 

NROCK#0 

0023 

0000 

NFS#0 

/ROCKET STALL CONSTANT. 

@024 

7213 

STAL#»565 

0025 

7563 

f?RETURN#-CR 

0026 

@212 

LINEFD^LF 

0027 

@2!5 

RETURN#CR 

0030 

@000 

SVM#0 

®@31 

1201 

MESS#«ESSA6-i 

0032 

!663 

SMSTR#INSDAT-I 

0033 

0m 1 

Cl#l 

0034 

@000 

COUMTR#® 

0035 

0000 

couNir#® 

0036 

1777 

CROCKP#20(i0-l 

0037 

0777 

CR0CK#R0C0AT-1 

0040 

1377 

CFSDAT#rLYDAT-l 

0041 

2377 

CFSOAP#2400-1 

@042 

!4@© 

CFSOAA#FLYDAT 

0043 

740! 

N377#-377 

@044 

6200 

Ml 609#-5600 

@045 

0000 

DIVIDE#© 

/ADDRESS EXIT TO DIGITAL DECTAPE SYSTEM. 

/ALTER THIS ADDRESS TO SUIT YOUR OWN USE. 

0046 

7600 

C760®#760® 

0047 

@007 

C7#7 

0050 

7740 

NMlT#-40 

@05! 

0000 

TEMPA#0 

@052 

0000 

TEMPB#@ 

0053 

0000 

CNT#0 

@054 

7775 

M3#-3 

@055 

@741 

CRLFEN#CR!.F 

0056 

@377 

C377#377 

@057 

@400 

CRAISE#400 

mm 

@020 

C2@#20 

@®6S 

0725 

PRNT#PRNT! 

@062 

0600 

TESTMT#TEST 

0063 

0040 

CHIT#4@ 

@064 

0000 

XR#@ 

0065 

0206 

6H0ST#REST 

/HIT CHECK COORDINATES. 

0066 

2176 

CRl#TAGRi+l0@e 

0®67 

2177 

CR2#TAGR2«*I000 

@070 

2502 

CFl#TA0r!*l@0© 

007! 

2503 

era#TAGFS »1000 

0072 

0706 

CHAN#CMANG 

@©73 

0400 

ROCKET#ROCKT 

0074 

0500 

FS#FLV 

@075 

042! 

ROCSN.!#ROCIM 

0076 

0520 

SAU2N!#FSINI 

007? 

0443 

STALL#RSTALL 2 



0f.m 

0750 

CMECX^CCHECK 


@©00 



■0@©@ 


3103 

5203 

a«STjPoS203 /JMP LOC 003*CURRENT PAGE. 

03 04 

770® 

?^100^-800 

3SlsiS 

7500 

17300.-300 
♦230 

/leAlN PROG??A« TO CONTROL THE ROCKET AND 

0200 

4472 

SEGJN.UNS 3 CHAN 

9201 

6032 

KCC 

/PRINT INSTRUCTIONS THE FIRST TIME. 

0202 

427* 

JMS 0ETSTR 

0203 

7200 

CLA 

0S04 

t 103 

TAD INSTJP 

S205 

3200 

OCA BEGIN 

@236 

6032 

REST.KCC 
/GET SPEEDS. 

0207 

4276 

JMS GET 

0213 

4455 

JMS 1 CRLFEN 

02a 1 

1020 

TAD SPEEDR 

025 2 

42! 4 

UKS DIVIO 

0213 

5232 

JMP PUTIN 

/DIVIDE SUBROUTINE. 

/CALCULATE HOW MANY TIMES TO ADD SPEED 
/SO THE SCOPE IS NOT OVERFLOWED. 

0214 

@000 

DIVIO.® 

021$ 

310! 

DCA TEMP 

0216 

3045 

DCA DIVIDE 

021.7 

i a@i 

TAD TEMP 

@220 

7650 

SNA CLA 

^21 

5206 

JMP REST 

0222 

1044 

TAD Ml600 

@223 

110! 

TAD TEMP 

©224 

2045 

IS2 DIVIDE 

0225 

7510 

SPA 

0226 

5223 

JMP .-3 

0227 

7200 

CLA 

023® 

!@45 

TAD DIVIDE 

@231 

5614 

JMP I DIVIO 
>• 

0232 

3022 

PUTIN.DCA MROCK 

0233 

1021 

TAD SPEEDF 

0234 

42! 4 

JMS DIV3D 

0235 

3023 

DCA MFS 

/MAIN DISPLAY CONTROL. 

/RESET ROCKET * FLYING SAUCER. 

0236 

4475 

START.JMS I ROCINI 

@237 

4476 

JMS I SAUiNI 

0240 

6031 

GOON.KSF 

0241 

5260 

JMP CONTFS 

/IF FLAG®! SEE IF RUB-OUT OR RETURN. 

/IF NEITHER START DISPLAYING ROCKET. 

0242 

720© 

CLA 

@243 

6034 

KRS 

0244 

!025 

TAD MRETURN 

@24$ 

7650 

SNA CLA 

0246 

5206 

JMP REST 

@247 

6034 

KRS 

@250 

1043 

TAD M377 

0251 

7450 

SNA 3 

@252 

4500 

JMS 1 CHECK • 

0253 

4473 

JMS I ROCKET 




J9254 

2034 

ISZ COUNTS 

0S53 

5260 

/IF THE ROCKET IS AT THE TOP OF THE SCREEN 
/RESET IT AND CLEAR THE FLAG* 

0256 

4475 

JMS 1 ROC INI 

0257 

6032 

KCC 


4474 

COMTFS<.JNS I FS 

026: 

603! 

KSF 

0262 

4477 

JMS 1 STALL 

/SEE IF IT IS A HIT. 

0263 

4462 

.MS 1 TE3THT 

Q9.6^ 

720@ 

CiA 

0265 

2e3S 

IHZ COUNTF 

0266 

7410 

SKP 

/RESET FLYING SAUCER. 

026? 

4476 

JM3 I SAUIN! 

0270 

5240 

JWP GOON 

/THIS IS THE ROUTINE THAT PRINTS OUT THE INSTRUCTIONS. 

027! 

0000 

GETSIR#0 

0272 

7200 

CLA 

0273 

1032 

TAD J.NSTR 

0274 

3014 

EfCA WESCNT 

0275 

53©! 

JMP .*4 

/THIS IS THE ROUTINE THAT GETS THE PARAMETERS. 

0276 

@203 

GET#203 

027? 

S03S 

TAD MESS 

0300 

3014 

OCA MESCNT 

0301 

4455 

MS 1 CRLFEN 

03©2 

l©60 

TAD C2© 

0303 

3!@l 

DCA TEMP 

0304 

3020 

DCA SPEEDR 

0305 

3021 

OCA SPESDF 

@306 

I4!4 

CONTUE#TAD I MESCNT 

@30? 

7510 

SPA 

03S0 

5676 

JMP 1 GET 

031! 

7440 

SSA 

@312 

5314 

JMP CONT3 

0313 

5326 

JMP 0ETCAR 

0314 

4461 

C0NT3# JMS I PRNT 

@315 

5306 

JMP CONTUE 

0316 

6033 

GETCAR#KSF 

0317 

5316 

JMP .-1 

032© 

6036 

KRB 

0321 

3030 

DCA SYM 

@322 

S03@ 

TAD SYM 

@323 

446! 

JMS 1 PRNT 

/RETURN SIGNIFIES END OF ENTRY. 

0324 

5 039 

TAD SYM 

0325 

1025 

TAD MRETURN 

0326 

7640 

SZA CLA 

@327 

5333 

JMP CONT5 

©330 

4455 

JMS I CRLFEN 

3331 

S5©! 

ISZ TEMP 

@332 

5306 

MP CONTUE 

0333 

8 030 

CONT5#TAD SYM 

@334 

©047 

AND C? 

0335 

3030 

DCA SYM 

0336 

1591 

TAD 1 TEMP 

0337 

7106 


0343 

7904 

CLL RTLIRAL 

@34! 

1030 

TAD SYM 4 

0342 

350! 

DCA !. TEMP 



* 0343 

5326 

J?fP SETCAR 
/ 

/llllfBlIJmEOITING BRCAKIIIIIlllll 
/ 

/ROCKET SUBROUTINE* 

^80 

0080 

006® 

Kco^e 

008 S 

@000 

XFUT*© 

*400 

@40© 

0000 

ROCKT#0 

0401 

“200 

RESET*CLA 

0402 

!036 

TAD CROCKP 

@403 

308 8 

DGA XPUT 

@404 

8 636 

TAD CROCKP 

@405 

302® 

DCA XCO 

04@6 

! 416 

STARTA#TAD 1 XCO 

@467 

7516 

SPA 

@4g@ 

5600 

JNP I ROCKT 

@418 

6@S3 

DXL 

04!S 

WS0 

TAD SPEEDR 

0483 

34 M 

DCA ! XPUT 

@41 4 

1486 

TAD 1 XCO 

0415 

6067 

OYS 

©416 

8020 

TAD SPEEOR 

®4I7 

348 8 

DCA 1 XPUT 

@420 

5206 

JMP STARTA 

/RESET ROCKET TO STARTING POSITION. 

@42 i 

0900 

ROC2N#0 

@422 

7200 

CLA 

@423 

1032 

TAD WROCK 

0424 

7648 

CIA 

0425 

3634 

DCA COUNTR 

0426 

i®37 

TAD CROCK 

©427 

3080 

DCA XCO 

@430 

1036 

TAD CROCKP 

@438 

368 1 

OCA XPUT 

@432 

1480 

60W8*TAD I XCO 

@433 

7510 

SPA 

@434 

5237 

JMF CONI 

@435 

348 8 

DCA I XPUT 

@436 

5232 

JMP GOON! 

0437 

348 1 

CONT.DCA I XPUT 

0440 

8 644 

TAD W8600 

0441 

348 8 

DCA 1 XPUT 

@442 

5628 

JMP i ROCIN 

/THIS ROUTINE STALLS IF THE ROCKET IS NOT FIRING 

@443 

0660 

RSTALLj*© 

0444 

7200 

CLA 

0445 

8024 

TAD STAL 

0446 

380! 

OCA TEMP 

0447 

280! 

2S2 TEMP 

@450 

5247 

JMP .-8 

0458 

5643 

JMP I RSTALL 

/FLYING SAUCER SUBROUTINE* 

*12 

0082 

0000 

XCOO#0 

008 3 

8000 

KPUTT#0 

*500 

@500 

0000 

FLY»0 5 

0501 

7200 

RESETT.CLA 

0502 

3048 

TAD CFSDAP 

0503 

363 3 

OCA XPUTT 





0504 

*04! 

im CFSDAP 

0505 

3012 

OCA XCOO 

0506 

1 412 

START!#TAD i XCOO 

0507 

7510 

SPA 

@5S0 

5700 

JWF 1 FLY 

05* 1 

6053 

OXL 

mi2 

102! 

TAD SPEEDF 

05 5 3 

3413 

OCA 1 XPUTT 

05 2 4 

1412 

TAO I XCOO 

05 S 5 

6367 

OYS 

0516 

3413 

OCA X XPUTT 

052 7 

5306 

STARTT 

/fksET FLYIW6 SAUCER TO STARTING POSITION 

0520 

0000 

FSIN1»@ 

052 S 

7200 

CLA 

0522 

1023 

TAD NFS 

0523 

7®4S 

CIA 

0524 

3035 

DCA COUNTF 

0525 

104© 

TAD CFSOAT 

0526 

30S2 

DCA XCOO 

©52? 

i@4J 

TAD CFSDAP 

0530 

3013 

DCA XPUTT 

0531 

1412 

G00N2#TAD I XCOO 

0532 

7510 

SPA 

0533 

5336 

JWP CONTI 

S534 

3413 

DCA I XPUTT 

0535 

5331 

JM? G00N2 

0536 

3413 

CONT?#DCA I XPUTT 

@53? 

1044 

TAD 111600 

@54® 

3413 

DCA 1 XPUTT 

0541 

5720 

JNP 1 FSim 

/ROUTINE TO SEE IF IT A HIT* 

/CONSTANTS C40 AND M40 CONTROL 

/HOW CLOSE YOU HAVE TO BE TO SCORE A HIT* 

»600 

3600 

@000 

TEST#0 

0601 

7200 

CLA 

@602 

1054 

TAO M3 

0603 

3053 

DCA CNT 

@604 

1467 

TAD I CR8 ' 

0605 

1063 

TAD CHIT 

3606 

3051 

DCA TEMPA 

3607 

1467 

TAD 1 CR2 

@610 

1050 

TAD MMIT 

§611 

3052 

DCA TEMPB 

3612 

*051 

TAD TEMPA 

©613 

7041 

CIA 

§6 <4 

1471 

TAD I CF2 

3615 

7710 

SPA CLA 

©616 

2053 

SS2 CNT 

0617 

2053 

ISZ CNT 

0623 

1052 

TAD TEMPB 

062! 

7041 

CIA 

©622 

1471 

TAD 1 CF2 

0623 

7510 

SPA 

@624 

5230 

JMf TESTI 

0625 

2053 

ISE CNT 

0626 

5600 

JMP 1 TEST 

@627 

5233 

JMP TESTY 

0630 

2053 

TESTI*!SZ CNT 

9632 

5233 

UNP TESTY 6 

0632 

5600 

JMP I TEST 





. 0433 
0634 
063S 
@636 
0637 
@640 
064S 
S64S 
@643 
0644 
0645 
0646 
@647 
0650 
065? 
06S2 
@653 
®654 
3655 
®656 
@657 
@660 
066 % 
@66® 
@663 
@664 

0665 

0666 

©667 

0670 

067? 

@67S 

0673 

@674 

0675 

9676 

@677 

0700 

0703 

0702 

0703 

0704 

0705 


0706 
0707 
0?!@ 
071 i 
0712 
@733 
@734 
@735 
67 3 6 
073 7 
@720 

072 3 
@722 


7200 TESTY i.CLA 
1954 TAD M3 

3053 DCA CNT , 

3466 TAD 3 CR! 

3063 TAD CHIT 
3051 DCA TEMPA 
3466 TAD I CRI 
305© TAD HH3T 
3032 DCA TEMPB 
1053 TAD TEMPA 
7041 CIA 
3470 TAD I CFI 
7710 SPA CLA 
2053 IS2 CMT 
2053 1%Z CNT 

1052 TAD TEMP8 
7043 CIA 
r.470 TAD 2 CF! 

7310 SPA 
5262 J5^P TEST2 
2053 l$E CNT 
5600 JMP 2 TEST 
5265 JMP CRA2 

2053 1EST2»ISZ CNT 
5265 vW CHA2 
56@@ JMP 1 TEST 

/display garbage for MIT! 

12m CRAZi.CLA 

2054 TAD M3 
3303 DCA TEMP 
6032 KCC 

1410 CRAZY*TAD I 30 
2430 TAD 3 20 
6053 DXL 
2052 2SZ TEMPA 
527? JMF ,+2 
53©3 JMP SEE 
7040 SE£ON*CMA 
1410 CONTDS*TAD 1 10 
6067 DYS 
5271 JMF CRAZY 
2203 SEE*2S2 TEMP 
527? JMP SEEON 
5465 JMP I GHOST 

/ROUTINE TO ADO A CONSTANT TO 
/Y-COORDINATES OF THE PLYING SAUCER* 
/CONSTANT ••CHAISE- CAN BE CHANGED 
/FOR YOUR Own USE. 

0000 CHANG#© 

7200 CLA 

!042 TAD CFSDAA 

3030 DCA !0 

3042 TAD CFSDAA 

3033 OCA 3i 

1410 KEEPI#TAD I 30 

75 2 0 SPA 

5324 JMP C0NT6 

2057 TAD CRAISE 

3432 DCA I 12 

/SKIP K-COORDINATES. 

2420 TAD I S@ 7 

3423 DCA 2 il 






P(?g3 531A JWP KEEPS 

0724 57#«s C0NT6 j*JMP I CKAN6 

/PRINT SUBROUTliC. 

m25 &mB pRmtpB 

0?26 3 043 TAD M377 , ' 

0727 7440 S2A 

0730 5333 JKP 

0733 4455 JMS I CRLFEN 

0732 5446 JNP I C7600 

0733 ?.056 TAD C377 

@?34 6041 TSF 

0735 5334 JViP •“! 

0736 6046 TLS 

0737 73BB CIA C5.L 
0740 5725 I PRMTS 

/CRLF ROUTINE* 

0741 00@0 CRLF#0 

0742 720® CLA 

0743 1027 TAD RETURN 

0744 4325 JMS PRNT! 

0745 S®26 TAD LINEFD 

@746 4325 J.NS PRNTS 

0747 574! JNP 5 CRLF 

/NAKE SURE 377 IS IN BUFFER* 

@750 0000 CSHECK/»S 

@751. il05 TAD N3@® 

0752 3S02 DCA INCREM 

/STALL LOOP TO BE SURE CHARACTER IS IN BUFFER* 

@753 2S@2 SSZ INCREM 

0754 5333 JNP *-! 

0755 6034 KRS 

0756 5043 TAD N377 

@757 7450 SNA 

0760 5446 JNP I C7600 

076 J. 5750 JNF 5 CCHECK 
/ 

/ js ; IIIII ? S lEDITING BREAKIJII111 f 11 
/ 

/ROCKET DATA COORDINATES <X#y>* 

i ?*!000 

S000 0000 ROCDAT*® 

S00S 0060 60 

!002 0004 4 

S@03 @054 54 

S004 0004 4 

J005 @066 60 

1006 @@!@ S@ 

1007 @050 5© 

1010 0010 S0 

10!1 0668 60 

mi2 miA 14 

1013 0044 44 

1014 0@!4 14 

1015 006B 60 

10!6 0020 2 ® 

1017 @040 40 

5020 @32® 2® 

1021 0660 66 

1022 @024 24 

1023 §334 34 

1024 @024 24 

1825 ©044 44 


8 




!026 

0024 

24 

1027 

0060 

60 

J030 

0030 

30 

1031 

9030 

30 

1032 

0030 

30 

1033 

9050 

50 

1034 

0030 

30 

1035 

0060 

69 

103^ 

0034 

34 

!037 

@024 

24 

1040 

@034 

34 

1042 

0054 

54 

!342 

0934 

34 

1043 

0060 

60 

2044 

0040 

40 

2045 

0020 

20 

J046 

@040 

40 

1047 

9060 

60 

1050 

0044 

44 

1051 

0014 

14 

10S2 

0044 

44 

1053 

0024 

24 

1054 

0044 

44 

1055 

0054 

54 

1056 

@044 

44 

1057 

0064 

64 

1060 

0050 

50 

1061 

0010 

10 

1062 

0050 

50 

1063 

0030 

30 

1064 

005® 

50 

1065 

0050 

50 

1066 

@@S0 

50 

1067 

§070 

70 

1070 

©054 

54 

J071 

0004 

4 

1072 

©054 

54 

1073 

@034 

34 

1074 

0054 

54 

1075 

0044 

44 

1076 

@054 

54 

1077 

0074 

74 

1100 

0060 

60 

H0t 

@000 

0 

1102 

0060 

60 

1103 

0004 

4 

1104 

@060 

60 

2105 

@010 

l@ 

1106 

0060 

60 

1107 

0014 

14 

1110 

0060 

60 

nil 

0020 

20 

IU2 

0060 

60 

1113 

0024 

24 

1114 

0060 

60 

n 15 

0030 

30 

1U6 

0060 

60 

i 2 17 

0034 

34 

1120 

0060 

60 

S121 

004© 

40 

5122 

@060 

6® 

! 223 

@10@ 

190 






tt2A 

ltZ5 

1 *26 

5 S27 

SI 30 

1231 

U32 

1133 

lt3A 

1135 

1136 

H3? 

1140 

U41 

U42 

1143 

1144 

1145 

1146 

SS47 

1150 

H5I 

1152 

1153 

1154 

1155 

U56 

1157 

1160 

H61 

1162 

1163 

1164 

1165 

1166 

116? 

1179 

1171 

H72 

1273 

1174 

1175 

1176 

1177 

1200 

120 ! 

1202 

1203 

1204 

5205 

1206 

1207 

1210 

12U 

5232 

1213 

1214 

1215 

1216 


0064 64 

0044 44 

0064 64 

©074 74 

0064 64 

0104 104 

0070 70 

0050 50 

0070 70 

0070 70 

007© 70 

0110 110 
0074 74 

0054 54 

0074 74 

0064 64 

0074 74 

©114 114 

©100 100 
0960 60 

0100 100 
0120 120 
0104 104 

0064 64 

0104 104 

@120 120 
0110 110 
0070 70 

0110 110 
0220 320 

@114 U4 
0074 74 

0114 114 

0120 120 
0120 120 
0300 100 

0120 120 
0104 104 

@120 120 
0110 U© 

0120 120 
0114 114 

0120 TAGR1#120 

0120 TAGR2»120 

4000 4000 

4000 4000 

/MESSAGES ARE NOT TRIM CODE BECAUSE 

/OF THE NATURE OF THE PRINT A GET ROUTINE. 

/MESSAGES STORED STARTING AT 41202 

0322 MESSAG.R 
@317 0 

0303 C 
0313 K 
0305 E 
0324 T 
0240 SPACE 
0323 S 
032® P 
030S E 
0305 E 
0304 D 

9275 EQUAL 10 






1217 

0000 

0 


1220 

0325 

U 


1221 

0306 

F 


1222 

033? 

0 


1223 

0240 

SPACE 


!S24 

0323 

S 


sags 

0320 

P 


S2S6 

@305 

E 


1227 

0305 

E 


1230 

@304 

D 


1231 

@275 

EQUAL 

. 

1232 

0000 

0 


1233 

0212 

LF 


S234 

0330 

H 


!235 

0311 

11 


1236 

8324 

T 


1237 

0240 

SPACE 


S240 

0303 

A 


1243 

0240 

SPACE 


1242 

0333 

K 


3243 

0305 

E 


3244 

@33! 

y 


S245 

0240 

SPACE 


S246 

0324 

T 


3247 

0337 

0 


1250 

0240 

SPACE 


1253 

0306 

F 


1252 

033 8 

n 


1253 

0322 

R 


3254 

0305 

E 


3255 

0240 

SPACE 


3256 

0322 

R 


3257 

033 7 

0 


3260 

0303 

C 


3263 

0333 

K 


3262 

0305 

E 


3263 

0324 

7 


1264 

0256 

PERIOD 


3265 

4000 

4000 

/FLYING SAUCER 
41400 

COORDINATES CX#Y> 

3400 

0057 

FLYDAT^S? 


1401 

3077 

3077 


1402 

0063 

63 


3 403 

3 301 

1 303 


1404 

0063 

63 


!405 

3077 

1077 


3 406 

0063 

63 


1407 

3075 

3 075 


1410 

0067 

67 


141 3 

3 303 

1 103 


3432 

0067 

67 


1413 

3077 

1077 


3434 

0067 

67 


3435 

3073 

1073 


S4S6 

0073 

73 


3437 

3 303 

3 !03 


3420 

0073 

73 


3421 

3077 

1077 


3422 

0073 

73 


3423 

3073 

!073 

11 

S424 

0073 

73 








!-«25 

1063 

IA2€> 

0075 

1427 

1067 

1430 

0077 

143S 

3103 

1432 

0077 

1433 

1077 

3434 

0077 

3435 

1073 

1436 

0077 

1437 

1063 

1440 

Ql&l 

1441 

1067 

3442 

0103 

1443 

1103 

1444 

@103 

3 445 

1077 

1446 

0103 

1447 

1073 

1450 

0105 

1451 

1 107 

1452 

0107 

1453 

1113 

1454 

0107 

1455 

1103 

1456 

0107 

1457 

1077 

1460 

0107 

1461 

1073 

1462 

0113 

1463 

1 117 

1464 

0313 

1465 

1103 

1466 

0113 

1467 

1067 

1470 

0153 

1471 

1073 

1472 

0117 

1473 

1123 

1474 

0117 

1475 

3113 

1476 

0117 

1477 

1 107 

1500 

0117 

1501 

1103 

1502 

0117 

1503 

1077 

1504 

0117 

1505 

£073 

1506 

0123 

1507 

1 123 

1510 

0123 

1511 

i 113 

1512 

0123 

1513 

1 107 

1514 

0323 

1515 

1103 

ISI6 

0123 

1517 

1077 

1520 

0523 

1523 

3073 

1522 

01.25 


1063 

75 

S06? 

17 

1103 
77 

1677 

77 

!073 
77 
1063 
}01 
1067 
103 
! 103 
103 
S077 
103 
1073 
105 
I 107 
107 
1113 
107 
1 103 
107 
1077 
107 
1073 
113 
1117 
113 
1103 
113 
1067 
113 
1073 
117 
1123 
117 
1113 
117 
1107 
117 
1103 

TAGFl#!17 

TAGF2»I077 

117 

1073 

123 

1123 

123 

1113 

123 

S 107 

123 

1103 

123 

1077 

123 

1073 

125 





1523 

1125 

1125 

I5S4 

0127 

127 

1525 

1 127 

1 127 

1526 

0127 

127 

1527 

1123 

t 123 

1530 

012? 

127 

1531 

! 103 

1103 

1532 

0127 

127 

3533 

1077 

1077 

3 534 

8127 

127 

1535 

1073 

1073 

1536 

913! 

131 

SS37 

! 125 

1125 

1540 

0133 

133 

154! 

1123 

1123 

1542 

0133 

133 

1543 

1113 

1 113 

1544 

0133 

133 

1545 

1107 

1 107 

1546 

0133 

133 

1547 

1103 

1103 

1550 

0133 

133 

1551 

1077 

1077 

1552 

0133 

133 

1553 

1073 

1073 

1554 

0137 

137 

1555 

1123 

1123 

1556 

@J37 

137 

1557 

1 113 

! U3 

1560 

0137 

S37 

1561 

1107 

1 107 

1562 

0137 

137 

1563 

1103 

1 103 

1564 

0137 

137 

IS65 

1067 

1067 

1566 

0137 

137 

1567 

1073 

1073 

1570 

0143 

143 

1571 

1117 

1117 

1572 

0143 

143 

1573 

1103 

1103 

1574 

0143 

143 

1575 

1077 

1077 

1576 

0143 

143 

1577 

1073 

1073 

1600 

0147 

147 

1601 

1113 

1! 13 

1602 

0147 

147 

1603 

1103 

1103 

1604 

0147 

147 

1605 

1077 

1077 

1606 

0147 

147 

1607 

1073 

1073 

1610 

0151 

551 

161 ! 

I 107 

1 !07 

1612 

0153 

153 

1613 

1 102 

1102 

1614 

0153 

153 

1635 

1077 

1077 

1616 

0153 

153 

1617 

1073 

1073 

1620 

0155 

155 



13 






162! 

1067 

1067 

!682 

0157 

157 

1623 

3103 

1103 

!624 

0!57 

!57 

!62S 

107? 

3077 

1626 

0357 

157 

1627 

1073 

1073 

3630 

015? 

157 

163! 

1063 

1063 

3632 

036$ 

3 61 

1633 

1067 

1067 

1634 

0163 

163 

3635 

H03 

1 103 

1636 

93 63 

!63 

1637 

!077 

1077 

1640 

0163 

163 

3641 

1073 

1073 

3642 

0163 

!63 

3643 

1063 

1063 

3644 

0367 

167 

1645 

1103 

1103 

1646 

0167 

167 

1647 

1077 

1077 

1650 

0167 

167 

165! 

1073 

1073 

1652 

0173 

173 

1653 

1103 

H0i 

S654 

0173 

3 73 

1655 

1075 

1075 

1656 

0373 

173 

1657 

1077 

!077 

1660 

0377 

177 

1663 

1077 

5077 

1662 

4000 

4000 

1663 

4000 

4000 


/INSTRUCTIONS STORED HERE. 

/IF THEY ARE NOT TO BE PRINTED OUT 
/PUT A 7000 IN LOCATION 802 
/BEFORE STARTING THE PROGRAM. 

/OR PUT A 4000 <- #> IN LOCATION 1664. 
«1664 


1664 

0215 

INSOAT 

1665 

0212 

LF 

1666 

0311 

II 

1667 

0316 

N 

1670 

©323 

S 

367! 

©324 

T 

1672 

0322 

R 

1673 

0325 

U 

!674 

0303 

c 

1675 

0324 

T 

1676 

033 ! 

II 

1677 

0317 

0 

1700 

0316 

N 

1703 

0323 

S 

3702 

@272 

COLON 

1703 

0235 

CR 

1704 

0212 

LF 

$705 

@323 

S 

1706 

.0320 

P 

!707 

0305 

E 

171© 

0305 

E 










57! J 
' !7!2 

1713 
^ S7!4 
!715 
!7!6 
171 7 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 
1730 
2731 
1732 
5 733 

1734 

1735 

1736 

1737 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 
2000 
200 ! 
2002 

2003 

2004 

2005 

2006 


0304 
0323 
0240 
0323 
0257 
0302 
0240 
0274 
0240 
0317 
0322 
0240 
0275 
024© 
0324 
0317 
0240 
0263 
0260 
0256 
0215 
0212 
0322 
@305 
0324 
@325 
0322 
0316 
0240 
0313 
@305 
0331 
0240 
0327 
031 1 
@314 
0314 
0240 
0301 
0323 
0313 
0240 
0321 
0325 
0305 
0323 
0324 
@3! 1 
0317 
0316 
0323 
0240 
0301 
@307 
@30! 
0311 
@316 
0256 
0215 
0212 
0322 
0325 


D 

S 

SPACE 

S 

NSLASH 
B 

SPACE 

LT 

SPACE 

0 

R 

SPACE 

EQUAL 

SPACE 

T 

0 

SPACE 

THREE 

ZERO 

PERIOD 

CR 

LF 

R 

E 

T 

U 

R 

N 

SPACE 

K 

E 

y 

SPACE 

w 

II 

L 

L 

SPACE 

A 

S 

K 

SPACE 

9 

U 

E 

S 

T 

II 

0 

N 

S 

SPACE 

A 

G 

A 

!1 

N 

PERIOD 

CR 

LF 

R 

U 







g007 

0302 

B 


0317 

0 

2@H 

0325 

U 

2f?!8 

0324 

T 

8013 

0240 

SPACE 

2084 

0327 

W 

2015 

031! 

li 

20 i 6 

0314 

L 

20?.T 

0314 

L 

2080 

0240 

SPACE 

2081 

0322 

R 

8028 

0305 

E 

2023 

0324 

T 

2824 

0325 

U 

2025 

0322 

R 

2026 

@316 

N 

2027 

0240 

SPACE 

2830 

0324 

T 

2031 

0317 

0 

2032 

0240 

SPACE 

2033 

0323 

S 

2034 

0331 

V 

2035 

0323 

s 

2036 

0324 

T 

2037 

0305 

E 

2040 

0315 

M 

2041 

0240 

SPACE 

2042 

0256 

PERIOD 

2043 

0215 

CR 

2044 

0212 

LF 

2045 

0316 

N 

2046 

0317 

0 

2047 

0324 

T 

2050 

0305 

E 

2051 

0272 

COLON 

2052 

0240 

SPACE 

2053 

0303 

C 

2054 

0317 

0 

2055 

0316 

N 

2056 

0324 

T 

2057 

0322 

R 

2060 

0317 

0 

2061 

0314 

L 

2062 

0240 

SPACE 

2063 

0313 

K 

2064 

0305 

E 

2065 

0331 

Y 

2066 

0247 

SQUOTE 

2067 

0323 

S 

2070 

0240 

SPACE 

2071 

0317 

0 

2072 

0320 

P 

2073 

0305 

E 

2074 

@322 

R 

8075 

@30! 

A 

2076 

0324 

T 

2077 

0305 

E 

2100 

0240 

SPACE 

210! 

031? 

0 

2102 

0316 

N 

2103 

0314 

L 

2104 

033! 

Y 







2105 

2106 

2107 

2110 

2111 

2H2 

2113 

2114 

2115 

2116 

2117 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 


0240 SPACE ‘ 

0304 D 
0325 U 
0322 R 
0311 II 
0316 N 
0307 6 

0240 SPACE 
0304 0 

0311 JI 
0323 S 
0320 P 
0314 L 
0301 A 
0331 y 
0256 PERIOD 
0215 CR 
0212 LF 
4000 4000 

aIsoI^ 1-ETTERS and their ascii value in OCTAL. 

8*308 

C»303 

D«304 

E«305 

F«306 

6*307 

K*310 

11*311 

J»312 

KS313 

L*3l4 

Ma315 

N*3I6 

0*317 ' 

P«320 

Q*321 

R«322 

S«323 

T*324 

U*325 

V*326 

W*327 

X*330 

Y«33I 

22*332 

0NE*261 

T WO *262 

THREE«263 

F0UR*264 

FlVEa265 

SlXs266 

SEVEN*267 

EI6HT*270 

NlNEa271 

2ERO«260 

EX*241 /! 

0U0TE«242 
NUMSIN»243 /# 

00LLAR»244 

PERCNTa245 17 

ANPER*246 /« 








SeU0TE«247 /* 

LPAR*250 

RPAR*251 

ASTER»858 

Pi.US-253 

C0M«A«254 

MINUS-255 

PERI0D«256 

NSLASH»257 

COl.ON-272 

SEMC0L«273 

1.1*274 

£QUAL»275 

GT*276 

QUES*277 

ATSI6N«300 

LBRAKa333 

LSLASH»334 

RBRAKa335 

LARa337 

LF«232 

SPACEs240 

CR*2»5 

BEtL*207 


A 

0301 

AHPER 

0246 

ASTER 

0252 

ATSIGN 

0300 

S 

0302 

BEGIN 

0200 

BELL 

0207 

C 

0303 

CCHECK 

0750 

CFSOAA 

0042 

CFSDAP 

0041 

CFSDAT 

0040 

CFJ 

0070 

CF2 

0071 

CHAN 

0072 

CHANG 

0706 

CHECK 

0100 

CHIT 

0063 

CNT 

0053 

COLON 

0272 

COMMA 

0254 

CONT 

0437 

CONTDS 

0700 

CONTFS 

0260 

CONTUE 

0306 

CONTI 

0536 

CONT3 

0314 

CONT5 

0333 

C0NT6 

0724 

COUNTF 

0035 

COUNTR 

0034 

CR 

0215 

CRAISE 

0057 

CRA2 

0665 

CRAZY 

0671 

CRi.F 

0741 

CRLFEN 

0055 








CROCKP 

0036 

CR! 

9066 

CR8 

0067 

Ct 

0033 

C20 

0060 

C377 

0056 

Cl 

0047 

C7600 

0046 

D 

0304 

OIVID 

0214 

DIVIDE 

0045 

DOLLAR 

0244 

E 

0305 

EIGHT 

0270 

EQUAL 

0275 

EX 

0241 

F 

0306 

FIVE 

0265 

FLY 

0500 

FLYDAT 

1400 

FOl«R 

0264 

FS 

0074 

FSINI 

0520 

G 

0307 

GET 

0276 

GETCAR 

0316 


GETSTR 

0271 

GHOST 

0065 

GOON 

0240 

GOON! 

0432 

G00N2 

053! 

GT 

0276 

H 

0310 

n 

031 1 

INCREM 

0102 

IMSDAT 

1664 

INSTJP 

0103 

INSTR 

0032 

J 

0312 

K 

0313 

XEEPl 

0714 

L 

0314 

LAR 

0337 

LBRAK 

0333 

LF 

0212 

LINEFD 

0026 

LPAR 

0250 

LSLASH 

0334 

LT 

0274 

M 

0315 

MESCNT 

0014 

fCSS 

003! 

MESSAG 

1202 

MFS 

0023 

MHIT 

0050 

MINUS 

0255 

MRSTUR 

0025 

MROCK 

0022 

Ml 00 

0104 

Ml 600 

0044 

M3 

0054 

M300 

0105 


19 







«377 

0043 

N 

0316 

WINE 

9271 

nslash 

0257 

NUNSIN 

0243 

0 

0317 

ONE 

0261 

P 

0320 

PERCNT 

0245 

PERIOD 

0256 

PLUS 

0253 

PRNT 

0061 

PRNTl 

0725 

PUTIN 

0232 

Q 

0321 

SUES 

0277 

QUOTE 

0242 

R 

0322 

RBRAK 

0335 

RESET 

040 S 

RESETT 

0501 

REST 

0206 

RETURN 

0027 

ROCDAT 

1000 

ROC IN 

0421 

ROCINI 

0075 

ROCKET 

0073 

ROCKT 

0400 

RPAR 

0251 

RSTALL 

0443 

S 

0323 

SAUINI 

0076 

SEE 

0703 

SEEON 

0677 

SEMCOt 

0273 

SEVEN 

0267 

SIX 

0266 

SPACE 

0240 

SPEEDF 

0021 

SPEEDR 

0020 

SQUOTE 

0247 

STAL 

0024 

STALL 

0077 

START 

0236 

STARTA 

0406 

START! 

0506 

SYM 

0030 

T 

0324 

TA®^! 

1502 

TAGF2 

1503 

TAGRI 

1176 

TA6R2 

1177 

TEMP 

0101 

TEMPA 

005! 

TEMP8 

0052 

TEST 

0600 

TESTHT 

©062 

TESTY 

0633 

TEST! 

0630 

TEST2 

0662 

THREE 

0263 










u 

0325 

V 

0326 

w 

0327 

X 

0330 

xco 

0010 

xcoo 

00!2 

XPUT 

00! 1 

XPUTT 

0013 

XR 

0064 

Y 

0331 

ZERO 

0260 

ZZ 

0332 
















